home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_559 / apig / apiglib_v11.lzh / e18_cedparody.rexx < prev    next >
OS/2 REXX Batch file  |  1991-09-28  |  35KB  |  600 lines
  1.  
  2. /* Example of building a sophisticated Menu         */
  3.  
  4. /* Once the basic structure is built,               */
  5. /* just fiddle with the numbers till it looks right */
  6.  
  7. /*  */
  8.  
  9.  x = addlib("apig.library",0,-30,0)
  10.  
  11.  portname = "ex18_port"
  12.  p = openport(portname)
  13.  
  14.  call set_apig_globals()
  15.  
  16.  scrtitle    = "Hey Buddy, Yea You,  This is Your New Screen  !"
  17.  wintitle    = "This is your title"
  18.  winidcmp    = CLOSEWINDOW+MENUPICK+RAWKEY
  19.  winflags    = WINDOWCLOSE+WINDOWDEPTH+ACTIVATE+GIMMEZEROZERO
  20.  itemflags   = ITEMTEXT+ITEMENABLED
  21.  compitem    = itemflags+HIGHCOMP
  22.  boxitem     = itemflags+HIGHBOX
  23.  checkeditem = itemflags+HIGHCOMP+CHECKIT+MENUTOGGLE+CHECKED
  24.  
  25.  mselitem    = ITEMTEXT+ITEMENABLED+HIGHCOMP+MENUTOGGLE
  26.   
  27.  scr = openscreen(0,0,640,400,4,4,5,LACE+HIRES,CUSTOMSCREEN,scrtitle)
  28.  
  29.  colors = allocmem(32)  /* block of mem needed for LOADRGB4() */
  30.                                    /* 32 bytes = 2 * 16                  */
  31.                                    
  32.  colorvalues = ('0000'x || '0fa1'x || '004f'x || '0555'x ,
  33.                         || '0099'x || '0fff'x || '04fd'x || '0f00'x,
  34.                         || '0620'x || '0e50'x || '09f1'x || '0eb0'x,
  35.                         || '0f56'x || '092f'x || '0f00'x || '0ccc'x)
  36.                         
  37.  call storage(colors,colorvalues,32)  /* 32 bytes = 2 * 16 */
  38.  x = loadrgb4(scr,colors,16)          /* 16 colors to load */
  39.  image = loadimage("checkedbuttonbitmap",0,0,0,scr)
  40.  
  41.  /* open window */
  42.  w1  = openwindow(portname,,,640,400,2,4,winidcmp,winflags,wintitle,scr,,,image) 
  43.  w1rptr = getwindowrastport(w1)
  44.  
  45. z = pitext(w1rptr,200,40," wait a sec ... while I build the menu",1,0,JAM2,0)
  46.  
  47. x = build_menu_0()
  48.  
  49. z = cleareol(w1rptr,0,40)
  50.  
  51. x = setmenustrip(w1,menu0)
  52.  
  53. exitme = 0
  54.  
  55. z = pitext(w1rptr,200,60,"My favorite editor MENU ",1,0,JAM2,0)
  56. z = pitext(w1rptr,200,70,"Pull down the menus and play with'em ",1,0,JAM2,0)
  57. z = pitext(w1rptr,200,80,"Select'em, select multiple items even ...",1,0,JAM2,0)
  58. z = pitext(w1rptr,200,90,"I'll show you what you selected.",1,0,JAM2,0)
  59. z = pitext(w1rptr,200,100,"(checkmarked items, can be un-checked ) ",1,0,JAM2,0)
  60.  
  61. aboutlayer = 0 
  62. do forever
  63.      x = waitpkt(portname)
  64.   
  65.      do forever 
  66.   
  67.         msg = '0000 0000'x
  68.         msg = getpkt(portname)
  69.  
  70.         if msg = '0000 0000'x then leave
  71.  
  72.         if aboutlayer ~= 0 then 
  73.            do
  74.              call deletelayer(aboutlayer)
  75.              aboutlayer = 0 
  76.            end
  77.  
  78.         class = getarg(msg,0)
  79.  
  80.       
  81.         if class = CLOSEWINDOW then exitme = 1
  82.  
  83.         if class = MENUPICK then   /* display all Menu selections */
  84.            do
  85.               mennum = getarg(msg,1)
  86.               zzz = 0
  87.               fg = 0
  88.               do while mennum ~= MENUNULL 
  89.                  zzz = zzz + 1
  90.                  fg = fg + 1
  91.                  if fg > 15 then fg = 1
  92.                  call cleareol(w1rptr,100,120)
  93.                  call cleareol(w1rptr,100,130)
  94.                  call cleareol(w1rptr,100,140)
  95.                  call cleareol(w1rptr,100,150)
  96.                  call cleareol(w1rptr,100,160)
  97.                  if menunum(mennum) = 0 & itemnum(mennum) = 0 & aboutlayer = 0 then
  98.                     do
  99.                        aboutlayer = createupfrontlayer(w1,70,100,500,250,LAYERSMART,0)
  100.                        layerrp = getlayerrastport(aboutlayer)
  101.                        call setrast(layerrp,6)
  102.                        z = pitext(layerrp,40,10,"No, this is not the Editor you think it is.",9,0,JAM1,0)
  103.                        z = pitext(layerrp,40,30,"This is an ARexx Macro, using the APIG.LIBRARY,",9,0,JAM1,0)
  104.                        z = pitext(layerrp,40,40,"pretending to be something it's not.",9,0,JAM1,0)
  105.                        z = pitext(layerrp,40,60,"The Editor you are thinking of is ...",9,0,JAM1,0)
  106.                        z = pitext(layerrp,40,70,"Copyright of CygnusSoft Software",9,0,JAM1,0)
  107.                        z = pitext(layerrp,40,80,"Published by ASDG, Incorporated, Madison WI",9,0,JAM1,0)
  108.                        z = pitext(layerrp,40,90," ... you have to buy it from them",9,0,JAM1,0)
  109.                        z = pitext(layerrp,40,110," (press MENU button)",9,0,JAM1,0)
  110.                     end
  111.                  z = pitext(w1rptr,100,120,("Selection Number" zzz),fg,0,JAM2,0)
  112.                  z = pitext(w1rptr,120,130,("Menu =" menunum(mennum)),fg,0,JAM2,0)
  113.                  z = pitext(w1rptr,120,140,("Item =" itemnum(mennum)),fg,0,JAM2,0)
  114.                  z = pitext(w1rptr,120,150,("SubI =" subnum(mennum)),fg,0,JAM2,0)
  115.                  zitem = itemaddress(menu0,mennum)
  116.                  zitemfill = getvalue(zitem,18,4,'p')
  117.                  z = pitext(w1rptr,120,160,("Text =" getvalue(zitemfill,12,4,'S')),fg,0,JAM2,0)
  118.                  mennum = getvalue(zitem,32,2,'N')
  119.  
  120.                  /* the above line is the same as these two
  121.                     item = itemaddress(menu0,mennum)   as prescribed by the
  122.                     mennum = getvalue(item,32,2,'N')   Intuition Manual for
  123.                                                        multiple menu selection
  124.                  */
  125.  
  126.                  wait 2 sec
  127.  
  128.               end
  129.            end
  130.         x = reply(msg,0)  
  131.      end  
  132.    if exitme = 1 then leave
  133.    
  134. end
  135.  
  136. /* close and re-open the window, using menustrip already constructed */
  137. if aboutlayer ~= 0 then 
  138.    deletelayer(aboutlayer)
  139. z =closewindow(w1)
  140. if menu0 = '0000 0000'x then 
  141.    say "MENU was NULL"
  142. z = freemenu(menu0)
  143. say "z = " z " ... the number of 'things' owned by menu" 
  144. z = freemem(colors,32) 
  145.  
  146. z =closescreen(scr)
  147.  
  148. exit
  149.  
  150. build_menu_0:
  151.  
  152.  /* set up menu */
  153.  
  154.   /* MENU 0 */
  155.  
  156.  
  157.   menu0 = makemenu(0,"Project",0,0,MENUENABLED,0)
  158.     m0text = makeitext(menu0,"About",0,3,0,1,JAM1,0,0)
  159.     m1text = makeitext(menu0,"Clear",0,3,0,1,JAM1,0,0)
  160.     m2text = makeitext(menu0,"Open new",0,3,0,1,JAM1,0,0)
  161.     m3text = makeitext(menu0,"Open...",0,3,0,1,JAM1,0,0)
  162.     m4text = makeitext(menu0,"Open...",0,3,0,1,JAM1,0,0)
  163.     m5text = makeitext(menu0,"Save block",0,3,0,1,JAM1,0,0)
  164.     m6text = makeitext(menu0,"Save",0,3,0,1,JAM1,0,0)
  165.     m7text = makeitext(menu0,"Save as",0,3,0,1,JAM1,0,0)
  166.     m8text = makeitext(menu0,"Save all changes",0,3,0,1,JAM1,0,0)
  167.     m9text = makeitext(menu0,"Change current directory",0,3,0,1,JAM1,0,0)
  168.     m10text = makeitext(menu0,"Print block...",0,3,0,1,JAM1,0,0)
  169.     m11text = makeitext(menu0,"Print File...",0,3,0,1,JAM1,0,0)
  170.     m12text = makeitext(menu0,"Quit",0,3,0,1,JAM1,0,0)
  171.     m13text = makeitext(menu0,"Save & Quit",0,3,0,1,JAM1,0,0)
  172.     m14text = makeitext(menu0,"Quit & Die",0,3,0,1,JAM1,0,0)
  173.  
  174.     maxwidth = IntuiTextLength(m9text)
  175.     m0item0  = makeitem(menu0,"",menu0,0,4,maxwidth,13,compitem,0,' ',2,3,JAM1,m0text,0)
  176.  
  177.     m0item1 = makeitem(menu0,"",menu0,0,24,maxwidth,13,compitem+COMMSEQ,0,'/',0,1,JAM1,m1text,0)
  178.     m0item2 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem+COMMSEQ,0,'?',0,1,JAM1,m2text,0)
  179.     m0item3 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem+COMMSEQ,0,'o',0,1,JAM1,m3text,0)
  180.     m0item4 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem+COMMSEQ,0,'O',0,1,JAM1,m4text,0)
  181.     m0item5 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem+COMMSEQ,0,'n',0,1,JAM1,m5text,0)
  182.     m0item6 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem+COMMSEQ,0,'w',0,1,JAM1,m6text,0)
  183.     m0item7 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem+COMMSEQ,0,'W',0,1,JAM1,m7text,0)
  184.     m0item8 = makeitem(menu0,"",menu0,0,8,maxwidth,13,compitem,0,'A',0,1,JAM1,m8text,0)
  185.     m0item9 = makeitem(menu0,"",menu0,0,24,maxwidth,13,compitem,0,'A',0,1,JAM1,m9text,0)
  186.     m0item10 = makeitem(menu0,"",menu0,0,24,maxwidth,13,compitem+COMMSEQ,0,'p',0,1,JAM1,m10text,0)
  187.     m0item11 = makeitem(menu0,"",menu0,0,4,maxwidth,13,compitem+COMMSEQ,0,'P',0,1,JAM1,m11text,0)
  188.     m0item12 = makeitem(menu0,"",menu0,0,4,maxwidth,13,compitem+COMMSEQ,q,'q',0,1,JAM1,m12text,0)
  189.     m0item13 = makeitem(menu0,"",menu0,0,4,maxwidth,13,compitem+COMMSEQ,0,'Q',0,1,JAM1,m13text,0)
  190.     m0item14 = makeitem(menu0,"",menu0,0,4,maxwidth,13,compitem,0,'A',0,1,JAM1,m14text,0)
  191.   
  192.  
  193.   /* MENU 1 */
  194.   menu1 = makemenu(menu0,"   Environment",0,40,MENUENABLED,menu0)
  195.   m1text = makeitext(menu0,"Screen height",0,3,0,1,JAM1,0,0)
  196.   m1item1  = makeitem(menu0,"",menu1,0,4,196,13,boxitem,0,' ',0,1,JAM1,m1text,0)
  197.   
  198.     m1text = makeitext(menu0,"400 pixels",32,3,0,1,JAM1,0,0)
  199.     m2text = makeitext(menu0,"408 pixels",32,3,0,1,JAM1,0,0)
  200.     m3text = makeitext(menu0,"424 pixels",32,3,0,1,JAM1,0,0)
  201.     m4text = makeitext(menu0,"440 pixels",32,3,0,1,JAM1,0,0)
  202.     m5text = makeitext(menu0,"456 pixels",32,3,0,1,JAM1,0,0)
  203.     m6text = makeitext(menu0,"472 pixels",32,3,0,1,JAM1,0,0)
  204.     m7text = makeitext(menu0,"470 (custom)",32,3,0,1,JAM1,0,0)
  205.     m8text = makeitext(menu0,"Interlace?",24,3,0,1,JAM1,0,0)
  206.  
  207.     maxwidth = intuitextlength(m7text)+CHECKWIDTH+44
  208.     m1i1s1 = makesubitem(menu0,"",m1item1,98,0,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  209.     m1i1s2 = makesubitem(menu0,"",m1item1,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m2text,0)
  210.     m1i1s3 = makesubitem(menu0,"",m1item1,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m3text,0)
  211.     m1i1s4 = makesubitem(menu0,"",m1item1,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m4text,0)
  212.     m1i1s5 = makesubitem(menu0,"",m1item1,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m5text,0)
  213.     m1i1s6 = makesubitem(menu0,"",m1item1,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m6text,0)
  214.     m1i1s7 = makesubitem(menu0,"",m1item1,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m7text,0)
  215.     call makesubitem(menu0,"",m1item1,98,-13,maxwidth,32,HIGHNONE+ITEMTEXT,0,' ',1,1,JAM2,0,0)
  216.     m1i1s8 = makesubitem(menu0,"",m1item1,98,-32,maxwidth,13,checkeditem+COMMSEQ,0,'`',0,1,JAM1,m8text,0)
  217.  
  218.   m1text = makeitext(menu0,"Screen width",0,3,0,1,JAM1,0,0)
  219.   m1item2  = makeitem(menu0,"",menu1,0,4,196,13,boxitem,0,'?',0,1,JAM1,m1text,0)
  220.     m1text = makeitext(menu0,"640 pixels",32,3,0,1,JAM1,0,0)
  221.     m2text = makeitext(menu0,"656 pixels",32,3,0,1,JAM1,0,0)
  222.     m3text = makeitext(menu0,"672 pixels",32,3,0,1,JAM1,0,0)
  223.     m4text = makeitext(menu0,"688 pixels",32,3,0,1,JAM1,0,0)
  224.     m5text = makeitext(menu0,"704 pixels",32,3,0,1,JAM1,0,0)
  225.     m6text = makeitext(menu0,"800 (custom)",32,3,0,1,JAM1,0,0)
  226.  
  227.     maxwidth = intuitextlength(m6text)+CHECKWIDTH+44
  228.     m1i2s1 = makesubitem(menu0,"",m1item2,98,0,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  229.     m1i2s2 = makesubitem(menu0,"",m1item2,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m2text,0)
  230.     m1i2s3 = makesubitem(menu0,"",m1item2,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m3text,0)
  231.     m1i2s4 = makesubitem(menu0,"",m1item2,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m4text,0)
  232.     m1i2s5 = makesubitem(menu0,"",m1item2,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m5text,0)
  233.     m1i2s6 = makesubitem(menu0,"",m1item2,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m6text,0)
  234.  
  235.   m1text = makeitext(menu0,"Force custom screen?",CHECKWIDTH,3,0,1,JAM1,0,0)
  236.   mw = intuitextlength(m1text)+CHECKWIDTH
  237.   m1item3  = makeitem(menu0, "",menu1,0,4,mw,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  238.  
  239.   m1text = makeitext(menu0,"Macro definitions",0,3,0,1,JAM1,0,0)
  240.   m1item4  = makeitem(menu0,"",menu1,0,4,196,13,boxitem,0,' ',0,1,JAM1,m1text,0)
  241.     m1text = makeitext(menu0,"Begin/end definition",0,3,0,1,JAM1,0,0)
  242.     m2text = makeitext(menu0,"Clear",0,3,0,1,JAM1,0,0)
  243.     m3text = makeitext(menu0,"Load definitions...",0,3,0,1,JAM1,0,0)
  244.     m4text = makeitext(menu0,"Save definitions...",0,3,0,1,JAM1,0,0)
  245.  
  246.     maxwidth = 12+intuitextlength(m1text)+COMMWIDTH
  247.     m1i4s1 = makesubitem(menu0,"",m1item4,98,0,maxwidth,13,compitem+COMMSEQ,0,'m',0,1,JAM1,m1text,0)
  248.     m1i4s2 = makesubitem(menu0,"",m1item4,98,-13,maxwidth,13,compitem,0,' ',0,1,JAM1,m2text,0)
  249.     m1i4s3 = makesubitem(menu0,"",m1item4,98,-13,maxwidth,13,compitem+COMMSEQ,0,';',0,1,JAM1,m3text,0)
  250.     m1i4s4 = makesubitem(menu0,"",m1item4,98,-13,maxwidth,13,compitem+COMMSEQ,0,"'",0,1,JAM1,m4text,0)
  251.  
  252.   m1text = makeitext(menu0,"Priority",0,3,0,1,JAM1,0,0)
  253.   m1item5  = makeitem(menu0,"",menu1,0,4,196,13,boxitem,0,' ',0,1,JAM1,m1text,0)
  254.     m1text = makeitext(menu0,"Inherit",32,3,0,1,JAM1,0,0)
  255.     m2text = makeitext(menu0,"Priority  1?",32,3,0,1,JAM1,0,0)
  256.     m3text = makeitext(menu0,"Set Priority",32,3,0,1,JAM1,0,0)
  257.     maxwidth = 12+intuitextlength(m3text)+COMMWIDTH
  258.     m1i5s1 = makesubitem(menu0,"",m1item5,98,0,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  259.     m1i5s2 = makesubitem(menu0,"",m1item5,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m2text,0)
  260.     m1i5s3 = makesubitem(menu0,"",m1item5,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m3text,0)
  261.  
  262.   m1text = makeitext(menu0,"Autosave",0,3,0,1,JAM1,0,0)
  263.   m1item6  = makeitem(menu0,"",menu1,0,4,196,13,boxpitem,0,' ',0,1,JAM1,m1text,0)
  264.     m1text = makeitext(menu0,"Every 35 min ?",32,3,0,1,JAM1,0,0)
  265.     m2text = makeitext(menu0,"Set Timer",32,3,0,1,JAM1,0,0)
  266.     maxwidth = 12+intuitextlength(m1text)+COMMWIDTH
  267.     m1i2s1 = makesubitem(menu0,"",m1item6,98,0,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  268.     m1i2s2 = makesubitem(menu0,"",m1item6,98,-13,maxwidth,13,checkeditem,0,' ',0,1,JAM1,m2text,0)
  269.  
  270.   m1text = makeitext(menu0,"Set icon tool name",0,3,0,1,JAM1,0,0)
  271.   m1item7  = makeitem(menu0,"",menu1,0,4,196,13,compitem,0,' ',0,1,JAM1,m1text,0)
  272.  
  273.   m1text = makeitext(menu0,"Change colors",0,3,0,1,JAM1,0,0)
  274.   m1item8  = makeitem(menu0, "",menu1,0,4,196,13,compitem,0,'$',0,1,JAM1,m1text,0)
  275.  
  276.   m1text = makeitext(menu0,"Do safe saves?",32,3,0,1,JAM1,0,0)
  277.   m1item9  = makeitem(menu0,"",menu1,0,4,196,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  278.   m1text = makeitext(menu0,"Icon Creation?",32,3,0,1,JAM1,0,0)
  279.   m1item10 = makeitem(menu0,"",menu1,0,4,196,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  280.   m1text = makeitext(menu0,"Hot-Start enabled",32,3,0,1,JAM1,0,0)
  281.   m1item11 = makeitem(menu0,"",menu1,0,4,196,13,checkeditem,0,' ',0,1,JAM1,m1text,0)
  282.   m1text = makeitext(menu0,"Auto-expand views?",32,3,0,1,JAM1,0,0)
  283.   m1item12 = makeitem(menu0,"",menu1,0,4,196,13,checkeditem,q,'[',0,1,JAM1,m1text,0)
  284.   m1text = makeitext(menu0,"keypad = movement?",32,3,0,1,JAM1,0,0)
  285.   m1item13 = makeitem(menu0,"",menu1,0,4,196,13,checkeditem,0,'8',0,1,JAM1,m1text,0)
  286.   m1text = makeitext(menu0,"Load environment",0,3,0,1,JAM1,0,0)
  287.   m1item14 = makeitem(menu0, "",menu1,0,4,196,13,boxitem,0,' ',0,1,JAM1,m1text,0)
  288.     m1text = makeitext(menu0,"Default",0,3,0,1,JAM1,0,0)
  289.     m2text = makeitext(menu0,"Specify...",0,3,0,1,JAM1,0,0)
  290.     maxwidth = intuitextlength(m2text)+COMMWIDTH
  291.     call makesubitem(menu0,"",m1item14,98,0,maxwidth,13,compitem+COMMSEQ,0,'e',0,1,JAM1,m1text,0)
  292.     call makesubitem(menu0,"",m1item14,98,-13,maxwidth,13,compitem,0,' ',0,1,JAM1,m2text,0)
  293.   m1text = makeitext(menu0,"Save environment...",0,3,0,1,JAM1,0,0)
  294.   m1item15 = makeitem(menu0, "",menu1,0,4,196,13,compitem+COMMSEQ,0,'E',0,1,JAM1,m1text,0)
  295.  
  296.  
  297.  
  298.   /* MENU 2 */
  299.  
  300.   /* in the statement below a NULL string is used for the menu text.    */
  301.   /* The -112, positions the select box 112 pixels from the LEFT edge   */
  302.   /* of the screen.  36, is the width of the select box, even though no */
  303.   /* text is specified.  Thus this menu will overlap the 'Environment'  */
  304.   /* text from MENU 1 above.                                            */
  305.  
  306.   menu2 = makemenu(menu0,"",-112,36,MENUENABLED,menu0)
  307.  
  308.     m0text = makeitext(menu0,"File settings      ",0,3,0,1,JAM1,0,0)
  309.     m1text = makeitext(menu0,"Tab size",0,3,0,1,JAM1,0,0)
  310.     mw = intuitextlength(m0text)+COMMWIDTH
  311.  
  312.   m2item0  = makeitem(menu0,"",menu2,0,0,mw,13,HIGHNONE+ITEMTEXT,0,' ',0,1,JAM1,m0text,0)
  313.  
  314.   m2item1  = makeitem(menu0,"",menu2,0,-13,mw,13,boxitem,0,' ',0,1,JAM1,m1text,0)
  315.     m0text = makeitext(menu0," 1",CHECKWIDTH,3,0,1,JAM1,0,0)
  316.     m1text = makeitext(menu0," 2",CHECKWIDTH,3,0,1,JAM1,0,0)
  317.     m2text = makeitext(menu0," 3",CHECKWIDTH,3,0,1,JAM1,0,0)
  318.     m3text = makeitext(menu0," 4",CHECKWIDTH,3,0,1,JAM1,0,0)
  319.     m4text = makeitext(menu0," 5",CHECKWIDTH,3,0,1,JAM1,0,0)
  320.     m5text = makeitext(menu0," 6",CHECKWIDTH,3,0,1,JAM1,0,0)
  321.     m6text = makeitext(menu0," 7",CHECKWIDTH,3,0,1,JAM1,0,0)
  322.     m7text = makeitext(menu0," 8",CHECKWIDTH,3,0,1,JAM1,0,0)
  323.     m8text = makeitext(menu0," 9",CHECKWIDTH,3,0,1,JAM1,0,0)
  324.     m9text = makeitext(menu0,"10",CHECKWIDTH,3,0,1,JAM1,0,0)
  325.  
  326.     maxwidth = intuitextlength(m9text)+CHECKWIDTH+4
  327.     call makesubitem(menu0,"",m2item1,98,0,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m0text,0)
  328.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m1text,0)
  329.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m2text,0)
  330.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m3text,0)
  331.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m4text,0)
  332.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m5text,0)
  333.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m6text,0)
  334.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m7text,0)
  335.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m8text,0)
  336.     call makesubitem(menu0,"",m2item1,98,-16,maxwidth,16,checkeditem,0,' ',0,1,JAM1,m9text,0)
  337.  
  338.  
  339.   m2text = makeitext(menu0,"Customize tabs    ",0,3,0,1,JAM1,0,0)
  340.   m3text = makeitext(menu0,"Set right border  ",0,3,0,1,JAM1,0,0)
  341.   m4text = makeitext(menu0,"Set scroll jump",0,3,0,1,JAM1,0,0)
  342.   m2item2  = makeitem(menu0,"",menu2,0,-13,mw,13,compitem+COMMSEQ,0,'t',0,1,JAM1,m2text,0)
  343.   m2item3  = makeitem(menu0,"",menu2,0,20,mw,13,compitem+COMMSEQ,0,'^',0,1,JAM1,m3text,0)
  344.   m2item4  = makeitem(menu0,"",menu2,0,4,mw,13,boxitem,0,' ',0,1,JAM1,m4text,0)
  345.     m1text = makeitext(menu0,"1 pixel ",28,3,0,1,JAM1,0,0)
  346.     m2text = makeitext(menu0,"2 pixels",28,3,0,1,JAM1,0,0)
  347.     call makeitext(menu0,"Oops! How did this happen",0,40,4,5,JAM2,0,m2text)
  348.     m3text = makeitext(menu0,"4 pixels",28,3,0,1,JAM1,0,0)
  349.     m4text = makeitext(menu0,"8 pixels",28,3,0,1,JAM1,0,0)
  350.     call makesubitem(menu0,"",m2item4,98,0,100,15,checkeditem,0,' ',0,1,JAM1,m1text,0)
  351.     call makesubitem(menu0,"",m2item4,98,-15,98,15,checkeditem,0,' ',0,1,JAM1,m2text,0)
  352.     call makesubitem(menu0,"",m2item4,198,65536,98,15,checkeditem,0,' ',0,1,JAM1,m3text,0)
  353.     call makesubitem(menu0,"",m2item4,198,100,98,15,checkeditem,0,' ',0,1,JAM1,m4text,0)
  354.     m5text = makeitext(menu0,"Layout?",CHECKWIDTH,3,0,1,JAM1,0,0)
  355.     m6text = makeitext(menu0,"Word wrap?",CHECKWIDTH,3,0,1,JAM1,0,0)
  356.     m7text = makeitext(menu0,"Insert mode?",CHECKWIDTH,3,0,1,JAM1,0,0)
  357.     m8text = makeitext(menu0,"Tabs = spaces? ",CHECKWIDTH,3,0,1,JAM1,0,0)
  358.     m2item5  = makeitem(menu0,"",menu2,0,20,mw,13,checkeditem,0,'5',0,1,JAM1,m5text,0)
  359.     m2item6  = makeitem(menu0,"",menu2,0,4,mw,13,checkeditem,0,'6',0,1,JAM1,m6text,0)
  360.     m2item7  = makeitem(menu0,"",menu2,0,4,mw,13,checkeditem,0,'7',0,1,JAM1,m7text,0)
  361.     m2item8  = makeitem(menu0,"",menu2,0,4,mw,13,checkeditem,0,'0',0,1,JAM1,m8text,0)
  362.  
  363.  
  364.   /* MENU 3 */
  365.  
  366.   /* this menu does the same as MENU 2, overlapping 'Environment' at  */
  367.   /* 144 pixels from the LEFT edge of the screen.                     */
  368.  
  369.   menu3 = makemenu(menu0,"",-144,48,MENUENABLED,menu0)
  370.  
  371.      m5text = makeitext(menu0,"Status line",0,3,0,1,JAM1,0,0)
  372.      m6text = makeitext(menu0,"White spaces",0,3,0,1,JAM1,0,0)
  373.      m7text = makeitext(menu0,"Scroll bar",0,3,0,1,JAM1,0,0)
  374.      m8text = makeitext(menu0,"Set scroll borders...",0,3,0,1,JAM1,0,0)
  375.      maxwidth = intuitextlength(m8text)+COMMWIDTH+CHECKWIDTH
  376.      m3item4  = makeitem(menu0,"View settings",menu3,0,0,196,13,ITEMTEXT,0,'5',0,1,JAM1,0,0)
  377.  
  378.      m3item5  = makeitem(menu0,"",menu3,0,0,maxwidth,13,boxitem,0,'5',0,1,JAM1,m5text,0)
  379.        m1text = makeitext(menu0,"On/Off",CHECKWIDTH,3,0,1,JAM1,0,0)
  380.        m2text = makeitext(menu0,"Changes",CHECKWIDTH,3,0,1,JAM1,0,0)
  381.        m3text = makeitext(menu0,"Pages",CHECKWIDTH,3,0,1,JAM1,0,0)
  382.        mw = intuitextlength(m2text)+CHECKWIDTH+COMMWIDTH+12
  383.        call makesubitem(menu0,"",m3item5,98,0,mw,15,checkeditem+COMMSEQ,0,'9 ',0,1,JAM1,m1text,0)
  384.        call makesubitem(menu0,"",m3item5,98,-15,mw,15,checkeditem,0,' ',0,1,JAM1,m2text,0)
  385.        call makesubitem(menu0,"",m3item5,98,-15,mw,15,checkeditem,0,' ',0,1,JAM1,m3text,0)
  386.  
  387.      m3item6  = makeitem(menu0,"",menu3,0,4,maxwidth,13,boxitem,0,'6',0,1,JAM1,m6text,0)
  388.        m1text = makeitext(menu0,"Tabs visible?",CHECKWIDTH,3,0,1,JAM1,0,0)
  389.        m2text = makeitext(menu0,"Spaces visible?",CHECKWIDTH,3,0,1,JAM1,0,0)
  390.        m3text = makeitext(menu0,"Eols visible?",CHECKWIDTH,3,0,1,JAM1,0,0)
  391.        m4text = makeitext(menu0,"Esc codes visible?",CHECKWIDTH,3,0,1,JAM1,0,0)
  392.        mw = intuitextlength(m4text)+CHECKWIDTH+COMMWIDTH+12
  393.        call makesubitem(menu0,"",m3item6,98,0,mw,15,checkeditem+COMMSEQ,0,'&',0,1,JAM1,m1text,0)
  394.        call makesubitem(menu0,"",m3item6,98,-15,mw,15,checkeditem+COMMSEQ,0,'*',0,1,JAM1,m2text,0)
  395.        call makesubitem(menu0,"",m3item6,98,-15,mw,15,checkeditem+COMMSEQ,0,'(',0,1,JAM1,m3text,0)
  396.        call makesubitem(menu0,"",m3item6,98,-15,mw,15,checkeditem+COMMSEQ,0,')',0,1,JAM1,m4text,0)
  397.  
  398.      m3item7  = makeitem(menu0,"",menu3,0,22,maxwidth,13,boxitem,0,'7',0,1,JAM1,m7text,0)
  399.        m1text = makeitext(menu0,"Scroll bar on left",CHECKWIDTH,3,0,1,JAM1,0,0)
  400.        m2text = makeitext(menu0,"Scroll bar on right",CHECKWIDTH,3,0,1,JAM1,0,0)
  401.        m3text = makeitext(menu0,"No scroll bar",CHECKWIDTH,3,0,1,JAM1,0,0)
  402.        mw = intuitextlength(m2text)+CHECKWIDTH
  403.        call makesubitem(menu0,"",m3item7,98,0,mw,15,checkeditem,0,' ',0,1,JAM1,m1text,0)
  404.        call makesubitem(menu0,"",m3item7,98,-15,mw,15,checkeditem,0,' ',0,1,JAM1,m2text,0)
  405.        call makesubitem(menu0,"",m3item7,98,-15,mw,15,checkeditem,0,' ',0,1,JAM1,m3text,0)
  406.  
  407.      m3item8  = makeitem(menu0,"",menu3,0,4,maxwidth,13,compitem+COMMSEQ,0,'z',0,1,JAM1,m8text,0)
  408.  
  409.  
  410.   /* MENU 4 */
  411.   menu4 = makemenu(menu0,"Special",45,TextLength(w1rptr,"Special",-1)+28,MENUENABLED,menu0)
  412.   m0text = makeitext(menu0,"View operations",0,3,0,1,JAM1,0,0)
  413.   m4item0  = makeitem(menu0,"",menu4,0,0,196,13,boxitem,0,'5',0,1,JAM1,m0text,0)
  414.      m0text = makeitext(menu0,"Previous view",0,3,0,1,JAM1,0,0)
  415.      m1text = makeitext(menu0,"Next view",0,3,0,1,JAM1,0,0)
  416.      m2text = makeitext(menu0,"Split view",0,3,0,1,JAM1,0,0)
  417.      m3text = makeitext(menu0,"Expand vide",0,3,0,1,JAM1,0,0)
  418.      m4text = makeitext(menu0,"Grow view",0,3,0,1,JAM1,0,0)
  419.      m5text = makeitext(menu0,"Shrink view",0,3,0,1,JAM1,0,0)
  420.      maxwidth = 12+intuitextlength(m0text)+COMMWIDTH
  421.      call makesubitem(menu0,"",m4item0,98,0,maxwidth,15,compitem+COMMSEQ,0,',',0,1,JAM1,m0text,0)
  422.      call makesubitem(menu0,"",m4item0,98,-15,maxwidth,15,compitem+COMMSEQ,0,'.',0,1,JAM1,m1text,0)
  423.      call makesubitem(menu0,"",m4item0,98,-15,maxwidth,15,compitem+COMMSEQ,0,'d',0,1,JAM1,m2text,0)
  424.      call makesubitem(menu0,"",m4item0,98,-15,maxwidth,15,compitem+COMMSEQ,0,']',0,1,JAM1,m3text,0)
  425.      call makesubitem(menu0,"",m4item0,98,-15,maxwidth,15,compitem,0,' ',0,1,JAM1,m4text,0)
  426.      call makesubitem(menu0,"",m4item0,98,-15,maxwidth,15,compitem,0,' ',0,1,JAM1,m5text,0)
  427.  
  428.  
  429.   m1text = makeitext(menu0,"Format",0,3,0,1,JAM1,0,0)
  430.   m4item1  = makeitem(menu0,"",menu4,0,0,150,13,boxitem,0,' ',0,1,JAM1,m1text,0)
  431.      m0text = makeitext(menu0,"With fill      ",0,3,0,1,JAM1,0,0)
  432.      m1text = makeitext(menu0,"Without fill   ",0,3,0,1,JAM1,0,0)
  433.      m2text = makeitext(menu0,"Oops !!",0,3,0,1,JAM1,0,0)
  434.      maxwidth = intuitextlength(m1text)+COMMWIDTH
  435.      call makesubitem(menu0,"",m4item1,-maxwidth,0,maxwidth,15,compitem+COMMSEQ,0,'f',0,1,JAM1,m0text,0)
  436.      call makesubitem(menu0,"",m4item1,-maxwidth,-15,maxwidth,15,compitem+COMMSEQ,0,'F',0,1,JAM1,m1text,0)
  437.      call makesubitem(menu0,"",m4item1,-maxwidth,35,maxwidth,15,compitem,0,' ',0,1,JAM1,m2text,0)
  438.  
  439.  
  440.   m2text = makeitext(menu0,"DOS/Rexx interface",0,3,0,1,JAM1,0,0)
  441.   m4item2  = makeitem(menu0,"",menu4,0,0,196,13,boxitem,0,' ',0,1,JAM1,m2text,0)
  442.      m0text = makeitext(menu0,"Send DOS/Rexx command",0,3,0,1,JAM1,0,0)
  443.      m1text = makeitext(menu0,"Install DOS/Rexx command",0,3,0,1,JAM1,0,0)
  444.      m2text = makeitext(menu0,"Load DOS/Rexx command",0,3,0,1,JAM1,0,0)
  445.      m3text = makeitext(menu0,"Save DOS/Rexx command",0,3,0,1,JAM1,0,0)
  446.      m4text = makeitext(menu0,"command #1 - F1",0,3,0,1,JAM1,0,0)
  447.      m5text = makeitext(menu0,"command #2 - F2",0,3,0,1,JAM1,0,0)
  448.      m6text = makeitext(menu0,"command #3 - F3",0,3,0,1,JAM1,0,0)
  449.      m7text = makeitext(menu0,"command #4 - F4",0,3,0,1,JAM1,0,0)
  450.      m8text = makeitext(menu0,"command #5 - F5",0,3,0,1,JAM1,0,0)
  451.      m9text = makeitext(menu0,"command #6 - F6",0,3,0,1,JAM1,0,0)
  452.      m10text = makeitext(menu0,"command #7 - F7",0,3,0,1,JAM1,0,0)
  453.      m11text = makeitext(menu0,"command #8 - F8",0,3,0,1,JAM1,0,0)
  454.      m12text = makeitext(menu0,"command #9 - F9",0,3,0,1,JAM1,0,0)
  455.      m13text = makeitext(menu0,"command #10 - F10",0,3,0,1,JAM1,0,0)
  456.      maxwidth = 12+intuitextlength(m1text)
  457.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m0text,0)
  458.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m1text,0)
  459.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m2text,0)
  460.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m3text,0)
  461.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m4text,0)
  462.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m5text,0)
  463.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m6text,0)
  464.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m7text,0)
  465.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m8text,0)
  466.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m9text,0)
  467.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m10text,0)
  468.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m11text,0)
  469.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m12text,0)
  470.      call makesubitem(menu0,"",m4item2,98,0,maxwidth,15,compitem,0,' ',0,1,JAM1,m13text,0)
  471.  
  472.      m3text = makeitext(menu0,"Enter ascii",0,3,0,1,JAM1,0,0)
  473.      m4item3  = makeitem(menu0,"",menu4,0,18,196+COMMWIDTH,13,compitem+COMMSEQ,0,'-',0,1,JAM1,m3text,0)
  474.  
  475.      m4text = makeitext(menu0,"Center cursor",0,3,0,1,JAM1,0,0)
  476.      m4item4  = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'=',0,1,JAM1,m4text,0)
  477.  
  478.      m5text = makeitext(menu0,"Center line",0,3,0,1,JAM1,0,0)
  479.      m4item5  = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'\',0,1,JAM1,m5text,0)
  480.  
  481.      m6text = makeitext(menu0,"Repeat key/menu",0,3,0,1,JAM1,0,0)
  482.      m4item6  = makeitem(menu0,"",menu4,0,16,196+COMMWIDTH,13,compitem+COMMSEQ,0,'"',0,1,JAM1,m6text,0)
  483.  
  484.      m7text = makeitext(menu0,"Find matching bracket",0,3,0,1,JAM1,0,0)
  485.      m4item7  = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'h',0,1,JAM1,m7text,0)
  486.  
  487.      m8text = makeitext(menu0,"Mark location 1",0,3,0,1,JAM1,0,0)
  488.      m4item8  = makeitem(menu0,"",menu4,0,16,196+COMMWIDTH,13,compitem+COMMSEQ,0,'!',0,1,JAM1,m8text,0)
  489.  
  490.      m9text = makeitext(menu0,"Mark location 2",0,3,0,1,JAM1,0,0)
  491.      m4item9  = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'@',0,1,JAM1,m9text,0)
  492.  
  493.      m10text = makeitext(menu0,"Mark location 3",0,3,0,1,JAM1,0,0)
  494.      m4item10 = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'#',0,1,JAM1,m10text,0)
  495.  
  496.      m11text = makeitext(menu0,"Jump to mark 1",0,3,0,1,JAM1,0,0)
  497.      m4item11 = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'1',0,1,JAM1,m11text,0)
  498.  
  499.      m12text = makeitext(menu0,"Jump to mark 2",0,3,0,1,JAM1,0,0)
  500.      m4item12 = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'2',0,1,JAM1,m12text,0)
  501.  
  502.      m13text = makeitext(menu0,"Jump to mark 3",0,3,0,1,JAM1,0,0)
  503.      m4item13 = makeitem(menu0,"",menu4,0,3,196+COMMWIDTH,13,compitem+COMMSEQ,0,'3',0,1,JAM1,m13text,0)
  504.  
  505.  
  506.   /* MENU 5 */
  507.   menu5 = makemenu(menu0,"Cut/Paste",10,0,MENUENABLED,menu0)
  508.      m0text  = makeitext(menu0,"Mark block",0,3,0,1,JAM1,0,0)
  509.      m1text  = makeitext(menu0,"Mark columnar block",0,3,0,1,JAM1,0,0)
  510.      m2text  = makeitext(menu0,"Cut block",0,3,0,1,JAM1,0,0)
  511.      m3text  = makeitext(menu0,"Copy block",0,3,0,1,JAM1,0,0)
  512.      m4text  = makeitext(menu0,"Insert block",0,3,0,1,JAM1,0,0)
  513.      m5text  = makeitext(menu0,"Save block to file",0,3,0,1,JAM1,0,0)
  514.      m6text  = makeitext(menu0,"Rot block",0,3,0,1,JAM1,0,0)
  515.      m7text  = makeitext(menu0,"Strip CR block",0,3,0,1,JAM1,0,0)
  516.      m8text  = makeitext(menu0,"Change case block",0,3,0,1,JAM1,0,0)
  517.      m9text  = makeitext(menu0,"Delete word         Alt Del",0,3,0,1,JAM1,0,0)
  518.      m10text = makeitext(menu0,"Undelete word  Ctrl Alt Del",0,3,0,1,JAM1,0,0)
  519.      m11text = makeitext(menu0,"Delete line",0,3,0,1,JAM1,0,0)
  520.      m12text = makeitext(menu0,"Delete to EOL",0,3,0,1,JAM1,0,0)
  521.      m13text = makeitext(menu0,"Undelete line",0,3,0,1,JAM1,0,0)
  522.  
  523.      maxwidth = intuitextlength(m10text)
  524.      m5item0  = makeitem(menu0,"",menu5,0,0,maxwidth,13,compitem+COMMSEQ,0,'b',0,1,JAM1,m0text,0)
  525.      m5item1  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'v',0,1,JAM1,m1text,0)
  526.      m5item2  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'x',0,1,JAM1,m2text,0)
  527.      m5item3  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'c',0,1,JAM1,m3text,0)
  528.      m5item4  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'i',0,1,JAM1,m4text,0)
  529.      m5item5  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'n',0,1,JAM1,m5text,0)
  530.      m5item6  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem,0,' ',0,1,JAM1,m6text,0)
  531.      m5item7  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem,0,' ',0,1,JAM1,m7text,0)
  532.      m5item8  = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem,0,' ',0,1,JAM1,m8text,0)
  533.      m5item9  = makeitem(menu0,"",menu5,0,16,maxwidth,13,compitem,0,' ',0,1,JAM1,m9text,0)
  534.      m5item10 = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem,0,' ',0,1,JAM1,m10text,0)
  535.      m5item11 = makeitem(menu0,"",menu5,0,16,maxwidth,13,compitem+COMMSEQ,0,'k',0,1,JAM1,m11text,0)
  536.      m5item12 = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'y',0,1,JAM1,m12text,0)
  537.      m5item13 = makeitem(menu0,"",menu5,0,3,maxwidth,13,compitem+COMMSEQ,0,'l',0,1,JAM1,m13text,0)
  538.    
  539.  
  540.   /* MENU 6 */
  541.   menu6 = makemenu(menu0,"Search/Replace",10,0,MENUENABLED,menu0)
  542.      m0text = makeitext(menu0,"Repeat search backwards",0,3,0,1,JAM1,0,0)
  543.      m1text = makeitext(menu0,"Repeat search fowards",0,3,0,1,JAM1,0,0)
  544.      m2text = makeitext(menu0,"Search for...",0,3,0,1,JAM1,0,0)
  545.      m3text = makeitext(menu0,"Repeat replace",0,3,0,1,JAM1,0,0)
  546.      m4text = makeitext(menu0,"Replace...",0,3,0,1,JAM1,0,0)
  547.      m5text = makeitext(menu0,"Change case letter",0,3,0,1,JAM1,0,0)
  548.      m6text = makeitext(menu0,"Change case word",0,3,0,1,JAM1,0,0)
  549.      m7text = makeitext(menu0,"Upper case word",0,3,0,1,JAM1,0,0)
  550.      m8text = makeitext(menu0,"Lower case word",0,3,0,1,JAM1,0,0)
  551.      maxwidth = intuitextlength(m0text)
  552.      m6item0  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'a',0,1,JAM1,m0text,0)
  553.      m6item1  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'s',0,1,JAM1,m1text,0)
  554.      m6item2  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'S',0,1,JAM1,m2text,0)
  555.      m6item3  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'r',0,1,JAM1,m3text,0)
  556.      m6item4  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'R',0,1,JAM1,m4text,0)
  557.      m6item5  = makeitem(menu0,"",menu6,0,18,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'g',0,1,JAM1,m5text,0)
  558.      m6item6  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'G',0,1,JAM1,m6text,0)
  559.      m6item7  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'u',0,1,JAM1,m7text,0)
  560.      m6item8  = makeitem(menu0,"",menu6,0,3,maxwidth+COMMWIDTH,13,compitem+COMMSEQ,0,'U',0,1,JAM1,m8text,0)
  561.  
  562.  
  563.   /* MENU 7 */
  564.   menu7 = makemenu(menu0,"Move",-550,0,MENUENABLED,menu0)
  565.      m0text = makeitext(menu0,"Jump to line...",0,3,0,1,JAM1,0,0)
  566.      m1text = makeitext(menu0,"Jump to auto-mark",0,3,0,1,JAM1,0,0)
  567.      m2text = makeitext(menu0,"   Beg of screen",0,3,0,1,JAM1,0,0)
  568.      m3text = makeitext(menu0,"   End of screen",0,3,0,1,JAM1,0,0)
  569.      m4text = makeitext(menu0,"   Beg of line",0,3,0,1,JAM1,0,0)
  570.      m5text = makeitext(menu0,"   End of line",0,3,0,1,JAM1,0,0)
  571.      m6text = makeitext(menu0,"   Up 12 lines",0,3,0,1,JAM1,0,0)
  572.      m7text = makeitext(menu0,"   Down 12 lines",0,3,0,1,JAM1,0,0)
  573.      m8text = makeitext(menu0,"   Left 12 chars",0,3,0,1,JAM1,0,0)
  574.      m9text = makeitext(menu0,"   Right 12 chars",0,3,0,1,JAM1,0,0)
  575.      m10text = makeitext(menu0,"   Beg of file",0,3,0,1,JAM1,0,0)
  576.      m11text = makeitext(menu0,"   End of file",0,3,0,1,JAM1,0,0)
  577.      m12text = makeitext(menu0,"   Prev word",0,3,0,1,JAM1,0,0)
  578.      m13text = makeitext(menu0,"   Next word",0,3,0,1,JAM1,0,0)
  579.      maxwidth = 12+intuitextlength(m1text)+COMMWIDTH
  580.      ledge = -1 * (maxwidth - 55)
  581.      m7item0  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem+COMMSEQ,0,'j',0,1,JAM1,m0text,0)
  582.      m7item1  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem+COMMSEQ,0,'4',0,1,JAM1,m1text,0)
  583.      m7item2  = makeitem(menu0,"",menu7,ledge,20,maxwidth,13,compitem,0,'5',0,1,JAM1,m2text,0)
  584.      m7item3  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m3text,0)
  585.      m7item4  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m4text,0)
  586.      m7item5  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m5text,0)
  587.      m7item6  = makeitem(menu0,"",menu7,ledge,20,maxwidth,13,compitem,0,'5',0,1,JAM1,m6text,0)
  588.      m7item7  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m7text,0)
  589.      m7item8  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m8text,0)
  590.      m7item9  = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m9text,0)
  591.      m7item10 = makeitem(menu0,"",menu7,ledge,20,maxwidth,13,compitem,0,'5',0,1,JAM1,m10text,0)
  592.      m7item11 = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m11text,0)
  593.      m7item12 = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m12text,0)
  594.      m7item13 = makeitem(menu0,"",menu7,ledge,0,maxwidth,13,compitem,0,'5',0,1,JAM1,m13text,0)
  595.  
  596.  
  597.  
  598.  
  599.   return 1
  600.